home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DIRS.SWG
/
0006_DELTREE.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
896b
|
29 lines
Procedure ClrDir ( path : pathStr );
Var FileInfo : searchRec;
f : File;
path2 : pathStr;
s : String;
begin FindFirst ( path + '\*.*', AnyFile, FileInfo );
While DosError = 0 Do
begin if (FileInfo.Name[1] <> '.') and (FileInfo.attr <> VolumeId) then
if ( (FileInfo.Attr and Directory) = Directory ) then
begin Path2 := Path + '\' + FileInfo.Name;
ClrDir ( path2 );
end
else
if ((FileInfo.Attr and VolumeID) <> VolumeID) then begin
Assign ( f, path + '\' + FileInfo.Name );
Erase ( f );
end;
FindNext ( FileInfo );
end;
if (DosError = 18) and not ((Length(path) = 2)
and ( path[2] = ':')) then
RmDir ( path );
end;